home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMIBEST1.ADF / AmigaBasicStuff / BasicGadgets / Listing1 < prev    next >
Text File  |  1987-07-22  |  220b  |  14 lines
  1. ' Listing #1
  2. ' Part 1 of 3, Amiga Basic gadget subprograms
  3. ' Bryan D. Catley, September 1986
  4. '
  5. SUB BldGdgts (Num,T1(),T2$()) STATIC
  6. FOR n=0 TO Num-1
  7.   FOR m=0 TO 6
  8.     READ T1(n,m)
  9.   NEXT m
  10.   READ T2$(n)
  11. NEXT n
  12. END SUB
  13.  
  14.